home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_80 / waveunit.pas < prev    next >
Pascal/Delphi Source File  |  1995-01-01  |  1KB  |  35 lines
  1. unit WaveUnit;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinTypes;
  7.  
  8. function OpenMci(PWindow: HWnd; FileName, DeviceType: PChar): Boolean;
  9. procedure CloseMci;
  10. procedure PlayMci;
  11. procedure SetTimeFormatMS;
  12. function GetInfo(S: PChar): PChar;
  13. function GetNumTracks: LongInt;
  14. function GetLen: Longint;
  15. procedure PlayFromTo(Start, Finish: Byte);
  16. function DoRecord(MMSecs: LongInt): LongInt;
  17. function SaveFile(FileName: PChar): Boolean;
  18. function GetMode: LongInt;
  19. function GetLocation: LongInt;
  20.  
  21. implementation
  22.  
  23. function OpenMci; external 'WAVEINFO' index 1;
  24. procedure CloseMci; external 'WAVEINFO' index 2;
  25. procedure PlayMci; external 'WAVEINFO' index 3;
  26. procedure SetTimeFormatMS; external 'WAVEINFO' index 4;
  27. function GetInfo; external 'WAVEINFO' index 5;
  28. function GetNumTracks; external 'WAVEINFO' index 6;
  29. function GetLen; external 'WAVEINFO' index 7;
  30. procedure PlayFromTo; external 'WAVEINFO' index 8;
  31. function DoRecord; external 'WAVEINFO' index 9;
  32. function SaveFile; external 'WAVEINFO' index 10;
  33. function GetMode; external 'WAVEINFO' index 11;
  34. function GetLocation; external 'WAVEINFO' index 12;
  35. end.